perm filename ENVX[P11,LCS] blob
sn#409408 filedate 1979-04-10 generic text, type T, neo UTF8
INS 0 1; < INSTRUMENT 1
ENV
;
ENV P4 P5 B2 DP7 DP8 DP9 P10;
OSC B2 FP3 B2 P6 ;
OUT B2 B1;END;
SEG 2 0 1 1 8 1 10 .5 25 .5 50 0 75 0 100; <F2 ENVELOPE
GEN 0 2 4 .5 0 .3 0 .2 0 .1 7; < CLAR WAVE F4
SIN 1 1; <F1 SINE WAVE
SEG 5 1 1 1 50 ,-1 50.3, -1 100; <F5 SQUARE WAVE.
SRT←10000;
< SCOR.DAT -- RANDOM NUMBER= 0
PLAY;
ENV 0.000 0.1 A 500.000 F2 F1 0.020 P2*2 0.070 0.000
; < ENV 1
ENV 0.1 0.1 A*2 500.000 F2 F1 0.020 P2*2 0.070, -1.000
; < ENV 2
FINI;